home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VOUTPXY.S < prev    next >
Text File  |  1993-03-26  |  1KB  |  46 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*------------------------------------------------------------------------
  7. ;*-----------------------------------------------------------------------
  8. ;* vout_pxy.
  9. ;*    For VDI output calls that use only count and/or pxyarray.
  10. ;*
  11. ;*    This function is not exported to C, it's to be used only by other vdi
  12. ;*    bindings functions.
  13. ;*
  14. ;*    Entry: d0.w = function number.
  15. ;*     d1.w = subfunction number.
  16. ;*     a1.w = number of points in ptsin.
  17. ;*     a0.l-> ptsin array
  18. ;*-----------------------------------------------------------------------
  19. ;*------------------------------------------------------------------------
  20.  
  21.           globl     vout_pxy
  22. vout_pxy:
  23.  
  24. ;    .cargs    #8,handle.w
  25.  
  26. handle      =         8
  27.  
  28.           link        a6,#0
  29.  
  30. ;          VContrl    d0,d1,a1
  31.           move.w    handle(a6),-(sp)    ; contrl[6]
  32.           move.w    d1,-(sp)            ; contrl[5]
  33.           subq.l    #2,sp                ; contrl[4]
  34.           clr.l     -(sp)                ; contrl[3,2]
  35.           move.w    a1,-(sp)            ; contrl[1]
  36.           move.w    d0,-(sp)            ; contrl[0]
  37.  
  38.           subq.l    #8,sp                ;* -> ptsout, intout
  39.           move.l    a0,-(sp)            ;* -> ptsin
  40.           subq.l    #4,sp                ;* -> intin
  41.           pea        16(sp)                ;* -> contrl
  42.  
  43.           jmp        vdicall
  44.  
  45.           end
  46.